home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Resource / Preferences Test < prev    next >
Encoding:
Text File  |  1999-03-04  |  631 b   |  26 lines  |  [TEXT/ToyS]
  1. on run
  2.     set lastObj to LoadPref("Test Akua Sweets")
  3.     display dialog (lastObj as string) buttons {"OK"} default button 1
  4.     
  5.     set listObj to {1, 2, "Greg", "was here"}
  6.     SavePref(listObj, "List test")
  7.     set listObj to LoadPref("List test")
  8.     set dialText to (item 3 of listObj) & " " & (item 4 of listObj)
  9.     display dialog dialText buttons {"OK"} default button 1
  10. end run
  11.  
  12.  
  13. on open fsObjs
  14.     SavePref(item 1 of fsObjs, "Test Akua Sweets")
  15. end open
  16.  
  17.  
  18. on SavePref(prefObj, prefName)
  19.     save preference prefObj named prefName of type "Test"
  20. end SavePref
  21.  
  22.  
  23. on LoadPref(prefName)
  24.     return load preference named prefName of type "Test"
  25. end LoadPref
  26.